home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / cw trivia (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  19.2 KB  |  401 lines
  1. 5 clr:poke649,0
  2. 8 gosub 700
  3. 10 printchr$(14):poke53280,0:poke53281,0:printchr$(147)chr$(5)
  4. 11 gosub 61000
  5. 15 printtab(12)"[154][195][201][214][201][204][146] [152][215][193][210][146] [154][212][210][201][214][201][193][146]"
  6. 16 printtab(4)chr$(28)"[145][145][145][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  7. 17 printtab(4)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  8. 18 forg=1to10:forr=1to25:poke 53280,r:nextr:nextg:poke53280,0
  9. 19 gosub3500
  10. 20 printtab(9)chr$(158)"[145][145][145][145][196]o you need directions?"
  11. 30 printtab(12)chr$(154)"[208]ress '[217]' or '[206]'  "
  12. 32 print"                            "
  13. 35 poke649,10
  14. 40 getk$:ifk$=""then40
  15. 42 ifk$<>"y"andk$<>"n"thengoto40
  16. 43 poke649,0
  17. 45 ifk$="y"thengoto100
  18. 46 ifk$="n"thengoto199
  19. 100 printchr$(147):poke53280,12:poke53281,15
  20. 120 printtab(7)chr$(31)chr$(18)"[212][200][197] [195][201][214][201][204] [215][193][210] [212][210][201][214][201][193][160][199][193][205][197]"
  21. 125 printtab(5)chr$(151)"[212][200][197][160][195][201][214][201][204][160][215][193][210] [212][210][201][214][201][193][160][199][193][205][197] is";:print" based on";
  22. 126 print" both speed and knowledge.  [212]he faster";
  23. 128 print"you answer questions correctly, the"
  24. 130 print"more points you'll receive."
  25. 135 printtab(16)chr$(149)chr$(18)"[211]coring"
  26. 136 printtab(2)chr$(31)"50 points - if you answer correctly"
  27. 137 printtab(14)"in 1/2 second or less."
  28. 140 printtab(2)chr$(31)"25 points - if you answer correctly"
  29. 141 printtab(14)"in 1 second or less."
  30. 145 printtab(2)"20 points - if you answer correctly"
  31. 150 printtab(14)"in 2 seconds or less."
  32. 155 printtab(2)"15 points - if you answer correctly"
  33. 160 printtab(14)"in 3 seconds or less."
  34. 165 printtab(2)"10 points - if you take over 3 sec-"
  35. 170 printtab(14)"onds to answer correctly."
  36. 180 printchr$(144)chr$(18)"[212]he game will end on your 5th missed    ";
  37. 181 printchr$(18)"question, or when the questions run out."
  38. 185 printtab(13)"[208][210][197][211][211] [193][206][217] [203][197][217]":poke649,10
  39. 187 getz$:if z$=""then187
  40. 188 poke649,0
  41. 190 gosub3300
  42. 199 poke53280,6:poke53281,0:printchr$(147)chr$(144)
  43. 200 print"[153][200]ere we go..."
  44. 210 forx=1to1500:nextx
  45. 214 bf=0:bg=0:bi=0:bm=0:bn=0
  46. 215 qu=80:po=0:nw=0:co=0:tt=0:nd=0:dimdp(qu):restore:goto 2000
  47. 300 fora=828to914:readb:pokea,b:c=c+b:next
  48. 700 v=53248
  49. 712 pokev+37,2:pokev+38,7:pokev+28,14:pokev+40,15:pokev+41,7
  50. 713 pokev+27,peek(v+27)or(2^2)
  51. 715 pokev+23,peek(v+23)or2^2
  52. 716 pokev+27,peek(v+27)or2^1:pokev+23,peek(v+23)or2^1
  53. 720 fori=1to2:poke2040+i,15:nexti
  54. 730 forn=0to62:readq:poke960+n,q:next
  55. 750 poke v+4,50:pokev+5,208:pokev+2,90:pokev+3,208
  56. 760 data0,16,0,0,84,0,1,85,0,5,85,64,21,85,80,21,85,80,21
  57. 770 data85,80,21,85,80,21,85,80,21,85,80,21,85,80,21,85,80,21,85,80
  58. 780 data 16,16,16,16,16,16,16,0,16,18,68,144,16,0,16
  59. 781 data 18,68,144,16,0,16,18,68,144
  60. 785 return
  61. 900 poke6,11
  62. 901 ifx=50thengosub2499
  63. 902 forz=1tox:p=int(rnd(1)*15)
  64. 903 ifxu=1thenpoke54296,13
  65. 904 ifxu=0thenpoke54296,0
  66. 905 poke54277,0:poke54278,246:poke54276,17:poke54273,43:poke53280,p
  67. 906 poke54272,0:forh=1to25:next:poke54276,16:po=po+1
  68. 907 print"[153]";po
  69. 910 poke53281,p:nextz:poke53281,0:poke53280,4
  70. 920 return
  71. 1046 data"[212]he most famous [195]ivil [215]ar photographer  was named [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  72. 1047 data"[218]achary [212]aylor","[195]harles [211]umner","[215]illiam [211]eward","[205]athew [194]. [194]rady"
  73. 1066 data"[205]any southern leaders felt [204]incoln's    election would [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  74. 1067 data"help the [211]outh","encourage slavery","hurt the [206]orth","wreck the [211]outh"
  75. 1068 data"[212]he very first state to secede from the [213]nion in 1860 was [175][175][175][175][175][175][175][175][175][175]."
  76. 1069 data"[214]irginia","[193]labama","[206]orth [195]arolina","[211]outh [195]arolina"
  77. 1070 data"[201]n all, how many southern states secededfrom the [213]nion?"
  78. 1071 data"13","9","7","11"
  79. 1072 data"[212]he capital city of the [195]onfederate     [211]tates of [193]merica was [175][175][175][175][175][175][175].
  80. 1073 [131]"(NULL)obile, atnlabama","atnustin, (NULL)exas","str$allas, (NULL)exas","(NULL)ichmond, (NULL)irginia"
  81. 1074 [131]"(NULL)nder the lenonfederate constitution, the president was to serve andandandandandand.
  82. 1075 data"for 4 years","for 2 years","for 10 years","for 6 years"
  83. 1076 data"[215]hich is the only one to be outlawed by the [195]onfederate constitution?"
  84. 1077 data"slavery","entrance of new states","the spread of slavery","tariffs"
  85. 1078 data"[212]he president of the [195]onfederate [211]tates of [193]merica was [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  86. 1079 data"[193]braham [204]incoln","[202]ames [194]uchanan","[210]obert [197]. [204]ee","[202]efferson [196]avis"
  87. 1080 data"[212]he [195]ivil [215]ar took place between        [175][175][175][175][175][175][175][175][175][175][175][175]."
  88. 1081 data"1850-1865","1859-1863","1881-1885","1861-1865"
  89. 1082 data"[212]he [211]outh began the fighting by seizing [175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  90. 1083 data"[215]ashington, [196].[195].","[213]nion cities","[213]nion railroads","federal arsenals"
  91. 1084 data"[212]he [206]orth's original goal at the [195]ivil  [215]ar's beginning was to [175][175][175][175][175][175].
  92. 1085 [131]"free the slaves","punish the (NULL)outh","seize the slaves","save the (NULL)nion
  93. 1086 data"[212]he opening shots of the [195]ivil [215]ar were fired at [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  94. 1087 data"[200]arpers [198]erry","[194]ull [210]un","[199]ettysburg","[198]t. [211]umter"
  95. 1088 data"[198]t. [211]umter was located off the coast of [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  96. 1089 data"[206]orth [195]arolina","[214]irginia","[199]eorgia","[211]outh [195]arolina"
  97. 1090 data"[212]he [213]nion officer in command of [198]t.     [211]umter was [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  98. 1091 data"[208]ierre [199].[212]. [194]eauregard","[202]ohn [194]ell","[210]obert [197]. [204]ee","[210]obert [193]nderson"
  99. 1092 data"[212]he [195]onfederate commander who captured  [198]t. [211]umter was [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  100. 1093 data"[210]obert [193]nderson","[210]obert [197]. [204]ee","[215]infield [211]cott","[208]ierre [194]eauregard"
  101. 1094 data"[212]he day after [198]t. [211]umter fell, [204]incoln  called for [175][175][175][175][175][175][175] volunteers.
  102. 1095 [131]"25,000","250,000","50,000","75,000"
  103. 1096 [131]"right$n 1861, the western part of andandandandandandandandandand decided to join the (NULL)nion."
  104. 1097 [131]"(NULL)outh lenarolina","atnrkansas","(NULL)ennessee","(NULL)irginia"
  105. 1098 [131]"(NULL)he commander of the lenonfederate army   during most of the war was andand.
  106. 1099 data"[213]lysses [211]. [199]rant","[215]infield [211]cott","[199]eorge [199]. [205]eade","[210]obert [197]. [204]ee"
  107. 1100 data"[196]uring the [195]ivil [215]ar, the [206]orth was     composed of [175][175][175][175] states."
  108. 1101 data"11","19","32","23"
  109. 1102 data"[196]uring the [195]ivil [215]ar, the [206]orth had an  approximate population of [175][175][175].
  110. 1103 [131]"102,000,000","9,500,000","63,000,000","22,000,000"
  111. 1104 [131]"str$uring the lenivil (NULL)ar, the (NULL)outh had an  approximate population of andandand.
  112. 1105 data"22,000,000","102,000,000","3,600,000","9,500,000"
  113. 1106 data"[212]here were approximately [175][175][175][175][175][175][175] slaves in the [211]outh during the war."
  114. 1107 data"9,500,000","22,000,000","63,000,000","3,600,000"
  115. 1108 data"[212]he name of the [213]nion plan to defeat the[195]onfederacy was the [175][175][175][175][175][175][175][175]."
  116. 1109 data"[211]ecession","[197]mancipation [208]roclamation","[201]nauguration","[193]naconda [208]olicy
  117. 1112 [131]"(NULL)ne part of the (NULL)nion's atnnaconda (NULL)olicy was to capture the andandandandandandandandand."
  118. 1113 [131]"(NULL)hio (NULL)iver","(NULL)issouri (NULL)iver","lenumberland (NULL)iver","(NULL)ississippi (NULL)iver"
  119. 1114 [131]"(NULL)ne southern advantage in the war was   that it had andandandandandandandandandandandandandand."
  120. 1115 [131]"more people","better industry","more railroads","better generals"
  121. 1116 [131]"(NULL)ne main (NULL)nion advantage in the war was that it had andandandandandandandandandandandandandandand."
  122. 1117 [131]"better generals","a better cavalry","more rivers","more industry"
  123. 1118 [131]"(NULL)he chief means of transportation in the(NULL)orth during the war were andandand.
  124. 1119 data"steamboats","airplanes","automobiles","railroads"
  125. 1120 data"[212]he [211]outh was upset that the countries  in [175][175][175][175][175][175][175][175][175][175][175] would not help.
  126. 1121 [131]"atnsia","(NULL)outh atnmerica","atnfrica","valurope"
  127. 1122 [131]"(NULL)he civilian leaders of the lenonfederate government believed in andandandandandand.
  128. 1123 data"high tariffs","popular sovereignty","human equality","state rights"
  129. 1128 data"[212]he [213]nion commander at the first [194]attle of [194]ull [210]un was [175][175][175][175][175][175][175][175][175][175][175]."
  130. 1129 data"[213]lysses [211]. [199]rant","[210]obert [193]nderson","[197]lias [200]owe","[201]rvin [205]c[196]owell"
  131. 1130 data"[215]hat [195]onfederate commander earned the   nickname '[211]tonewall'?
  132. 1131 [131]"mid$oseph mid$ohnston","(NULL)obert val. (NULL)ee","mid$efferson str$avis","(NULL)homas mid$. mid$ackson"
  133. 1132 [131]"(NULL)he first peekattle of peekull (NULL)un ended in a terrible defeat for the andandandandand.
  134. 1133 data"[195]onfederacy","[211]outh","[200]essians","[213]nion"
  135. 1134 data"'[211]tonewall' [202]ackson earned his nickname at the [194]attle of [175][175][175][175][175][175][175][175][175][175]."
  136. 1135 data"[199]ettysburg","[214]icksburg","[193]ntietam","[194]ull [210]un"
  137. 1136 data"[196]elaware, [205]aryland, [203]entucky, and       [205]issouri were called the [175][175][175][175].
  138. 1137 [131]"free states","lenonfederate states","rebelling states","border states"
  139. 1138 [131]"(NULL)resident (NULL)incoln's (NULL)ecretary of (NULL)tate  was andandandandandandandandandandandandandand."
  140. 1139 [131]"valdwin (NULL). (NULL)tanton","(NULL)oger peek. (NULL)aney","str$avid (NULL)orter","(NULL)illiam (NULL)eward"
  141. 1140 [131]"(NULL)resident (NULL)incoln's (NULL)ecretary of (NULL)ar    was andandandandandandandandandandandandandand."
  142. 1141 [131]"(NULL)oger peek. (NULL)aney","str$avid (NULL)orter","(NULL)illiam (NULL)eward","valdwin (NULL). (NULL)tanton"
  143. 1142 [131]"atnbraham (NULL)incoln's first term (NULL)ice-      (NULL)resident was andandandandandandandandandandandand."
  144. 1143 [131]"(NULL)ade left$ampton","str$avid ascarragut","left$amilton ascish","left$annibal left$amlin"
  145. 1144 [131]"atnbraham (NULL)incoln's second term (NULL)ice-     (NULL)resident was andandandandandandandandandandandand."
  146. 1145 [131]"left$amilton ascish","(NULL)illiam (NULL)eward","(NULL)utherford peek. left$ayes","atnndrew mid$ohnson"
  147. 1146 [131]"right$n ascebruary, 1862, chr$eneral chr$rant        captured ascorts left$enry and andandandand.
  148. 1147 data"[196]uquesne","[212]iconderoga","[211]umter","[196]onelson"
  149. 1148 data"[212]he nickname '[213]nconditional [211]urrender'  was earned by [175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  150. 1149 data"[193]ndrew [200]. [198]oote","[210]obert [197]. [204]ee","[196]avid [198]arragut","[213]lysses [211]. [199]rant"
  151. 1150 data"[212]he southerners retreated to [205]ississippiafter losing at [175][175][175][175] in 1862."
  152. 1151 data"[199]ettysburg","[208]etersburg","[211]potsylvania","[211]hiloh"
  153. 1152 data"[207]n [193]pril 25, 1862, [213]nion forces under   [175][175][175][175][175][175][175][175] captured [206]ew [207]rleans.
  154. 1153 [131]"(NULL)lysses (NULL). chr$rant","atnndrew left$. ascoote","mid$ames (NULL)ongstreet","str$avid ascarragut
  155. 1154 data"[213]nion troops were 'the [194]lues' and       [195]onfederate troops were [175][175][175][175][175].
  156. 1155 [131]"'the (NULL)eds'","'the chr$reens'","'the (NULL)urples'","'the chr$rays'"
  157. 1156 [131]"right$n a battle of ironclad ships, the      (NULL)onitorwait fought the andandandandandandandand.
  158. 1157 data"[195]onstitution[146]","[208]resident[146]","[194]ismarck[146]","[205]errimac[146]"
  159. 1158 data"[193]ccording to [208]resident [204]incoln, which   [213]nion general had the 'slows'?
  160. 1159 [131]"left$enry left$alleck","chr$eorge (NULL)ickett","mid$oseph left$ooker","chr$eorge peek. (NULL)clenlellan"
  161. 1160 [131]"(NULL)ee defeated a (NULL)nion army led by andandandand atthe second peekattle of peekull (NULL)un.
  162. 1161 data"[200]enry [200]alleck","[193]mbrose [197]. [194]urnside","[202]oseph [200]ooker","[202]ohn [208]ope"
  163. 1162 data"[212]he [213]nion general who forced [204]ee to     retreat at [193]ntietam was [175][175][175][175][175].
  164. 1163 [131]"str$avid ascarragut","mid$ohn (NULL)ope","atnmbrose val. peekurnside","chr$eorge peek. (NULL)clenlellan
  165. 1164 data"[212]he [213]nion general who lost to [204]ee at    [198]redericksburg was [175][175][175][175][175][175][175][175][175]."
  166. 1165 data"[202]oseph [200]ooker","[202]ohn [208]ope","[196]avid [196]. [208]orter","[193]mbrose [197]. [194]urnside"
  167. 1166 data"[212]he [213]nion general who lost to [204]ee at    [195]hancellorsville was [175][175][175][175][175][175][175][175].
  168. 1167 [131]"chr$eorge chr$. (NULL)eade","mid$ohn (NULL)ope","chr$eorge peek. (NULL)clenlellan","mid$oseph left$ooker"
  169. 1168 [131]"'(NULL)tonewall' mid$ackson was accidentally    shot by his own troops at andandand.
  170. 1169 data"[199]ettysburg","[214]icksburg","[198]redericksburg","[195]hancellorsville"
  171. 1172 data"[212]he [194]attle of [199]ettysburg was fought in  the state of [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  172. 1173 data"[206]ew [217]ork","[214]irginia","[205]aryland","[208]ennsylvania"
  173. 1174 data"[193] disastrous [195]onfederate decision at    [199]ettysburg was called [175][175][175][175][175][175][175].
  174. 1175 [131]"(NULL)ulcanization","(NULL)ecession","(NULL)overeignty","(NULL)ickett's charge"
  175. 1176 [131]"(NULL)here were approximately andandandand casualtiesin the peekattle of chr$ettysburg."
  176. 1177 [131]"5,000","10,000","25,000","50,000"
  177. 1178 [131]"(NULL)he most infamous lenonfederate military  prison was called andandandandandandandandandand."
  178. 1179 [131]"(NULL)issionary (NULL)idge","lenemetery (NULL)idge","atnppomattox","atnndersonville"
  179. 1180 [131]"(NULL)he winning (NULL)nion general at the peekattle of chr$ettysburg was andandandandandandandandandand."
  180. 1181 [131]"(NULL)lysses (NULL). chr$rant","mid$ohn (NULL)ope","mid$oseph left$ooker","chr$eorge chr$. (NULL)eade"
  181. 1182 [131]"(NULL)he (NULL)nion gained full control of the    (NULL)ississippi (NULL)iver when chr$rant ?
  182. 1183 data"captured [210]ichmond","took [205]urfreesboro","took [217]orktown","took [214]icksburg
  183. 1184 [131]"(NULL)he valmancipation (NULL)roclamation was issuedafter the peekattle of andandandandandandandand.
  184. 1185 data"[199]ettysburg","[214]icksburg","[195]hickamauga","[193]ntietam"
  185. 1186 data"[212]he [197]mancipation [208]roclamation freed onlythe slaves in the [175][175][175][175][175][175][175][175][175][175].
  186. 1187 [131]"(NULL)nion states","border states","territories","rebelling states"
  187. 1188 [131]"(NULL)resident (NULL)incoln gave one of his       greatest speeches at andandandandandandandand.
  188. 1189 data"[208]etersburg","[193]ppomattox","[204]ookout [205]ountain","[199]ettysburg"
  189. 1190 data"[212]he famous [199]ettysburg [193]ddress is only   [175][175][175][175][175] sentences long."
  190. 1191 data"20","50","100","10"
  191. 1192 data"[204]arge anti-draft riots took place in    [175][175][175][175][175][175][175] in 1863."
  192. 1193 data"[210]ichmond","[206]ashville","[195]hattanooga","[206]ew [217]ork [195]ity"
  193. 1194 data"[212]he [213]nion army was finally turned over  to [175][175][175][175][175][175][175][175][175][175] in early 1864."
  194. 1195 data"[210]obert [197]. [204]ee","[194]raxton [194]ragg","[199]eorge [194]. [205]c[195]lellan","[213]lysses [211]. [199]rant
  195. 1196 [131]"(NULL)incoln was re-elected in 1864.  left$is    str$emocratic opponent was andandandandand.
  196. 1197 data"[215]illiam [211]eward","[197]dwin [205]. [211]tanton","[202]ohn [208]ope","[199]eorge [194]. [205]c[195]lellan"
  197. 1198 data"[193] very destructive [213]nion march through  [199]eorgia in 1864 was led by [175][175].
  198. 1199 [131]"(NULL)lysses (NULL). chr$rant","peekenjamin asc. peekutler","mid$ohn (NULL)ope","(NULL)illiam (NULL). (NULL)herman
  199. 1202 data"[199]eneral [204]ee surrendered to [199]eneral [199]rantat [175][175][175][175][175][175][175][175] on [193]pril 9, 1865.
  200. 1203 [131]"chr$ettysburg","(NULL)potsylvania","(NULL)ort left$udson","atnppomattox"
  201. 1204 [131]"(NULL)resident (NULL)incoln was assassinated by   andandandandandandandandand on atnpril 14, 1865."
  202. 1205 [131]"(NULL)ee left$arvey (NULL)swald","atndolf left$itler","mid$ohn chr$acy","mid$ohn (NULL)ilkes peekooth"
  203. 1206 [131]"(NULL)resident (NULL)incoln was assassinated whilewatching a play at andandandandandandandandand.
  204. 1207 data"[199]reeley's [212]heater","[210]ichmond [212]heater","[208]ope's [212]heater","[198]ord's [212]heater
  205. 1208 [131]"atnll slaves were finally freed by the    passage of the andandandandandand in 1865.
  206. 1209 data"[194]ill of [210]ights","20th [193]mendment","18th [193]mendment","13th [193]mendment"
  207. 1212 data"[212]he [213]nion general whose nickname was    '[207]ld [194]rains' was [175][175][175][175][175][175][175][175][175][175]."
  208. 1213 data"[202]oseph [200]ooker","[199]eorge [199]. [205]eade","[213]lysses [211]. [199]rant","[200]enry [200]alleck"
  209. 1216 data"[205]ost historians feel the [194]attle of [175][175][175][175][175]was the war's turning point."
  210. 1217 data"[211]hiloh","[208]ittsburg [204]anding","[194]ull [210]un","[199]ettysburg"
  211. 1218 data"[212]he [195]onfederate general most known for  fighting 'guerrilla war' was ?
  212. 1219 [131]"mid$ames (NULL)ongstreet","str$aniel left$. left$ill","mid$ohn left$ood","mid$ohn left$. (NULL)organ"
  213. 1220 [131]"(NULL)he (NULL)nion naval hero who supported      ascarragut at (NULL)ew (NULL)rleans was ?
  214. 1221 data"[202]ames [204]ongstreet","[208]hilip [211]heridan","[202]ohn [196]ahlgren","[196]avid [196]. [208]orter"
  215. 1222 data"[212]he [194]attle [200]ymn of the [210]epublic[146] was     written by [175][175][175][175][175][175][175][175][175][175][175][175][175]."
  216. 1223 data"[196]aniel [200]ill","[194]arbara [198]ritchie","[202]ubal [197]arly","[202]ulia [215]ard [200]owe"
  217. 1224 data"[193]fter [204]incoln's assassination, [175][175][175][175][175][175][175][175] became our 17th [208]resident."
  218. 1225 data"[213]lysses [211]. [199]rant","[202]ames [199]arfield","[200]annibal [200]amlin","[193]ndrew [202]ohnson"
  219. 1226 data"[175][175][175][175][175][175][175][175][175][175][175][175], a great [195]onfederate       general, was killed at [211]hiloh.
  220. 1227 [131]"str$aniel left$ill","peekraxton peekragg","atnmbrose (NULL). left$ill","atnlbert (NULL)idney mid$ohnston
  221. 1228 data"[212]he bloodiest single day of fighting in the [195]ivil [215]ar occurred at [175][175][175].
  222. 1229 [131]"peekull (NULL)un","(NULL)icksburg","ascredericksburg","atnntietam"
  223. 1232 [131]"(NULL)he number of soldiers who died in the  lenivil (NULL)ar exceeded andandandandandandandand."
  224. 1233 [131]"2,000,000","4,000,000","1,500,000","600,000"
  225. 1234 [131]"atnpproximately andandandandandandandand men took part    during the lenivil (NULL)ar.
  226. 1235 data"600,000","2,000,000","1,500,000","4,000,000"
  227. 1236 data"[199]eneral [211]herman began his 'march to the sea' from [175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  228. 1237 data"[193]ppomattox","[199]ettysburg","[195]hancellorsville","[193]tlanta"
  229. 1238 data"[199]eneral [211]herman's 'march to the sea'    ended at [175][175][175][175][175][175][175][175][175][175][175][175][175][175]."
  230. 1239 data"[205]emphis","[205]urfreesboro","[195]harleston","[211]avannah"
  231. 2000 pokev+21,0:printchr$(147)chr$(18)tab(11)"[154]                  "
  232. 2001 printtab(11)chr$(18)"[154] ";chr$(5)"[195][201][214][201][204] [215][193][210] [212][210][201][214][201][193]";
  233. 2002 printtab(28)chr$(18)"[154] ":poke53280,4:poke53281,0
  234. 2003 printtab(11)chr$(18)"[154]                  ":poke6,11
  235. 2004 pokev+21,4:pokev+4,53:pokev+5,208
  236. 2005 printtab(12)chr$(18)"[153][212][207][212][193][204][160][208][207][201][206][212][211][146]:";po:restore
  237. 2006 pokev+21,peek(v+21)or2^1: pokev+16,2:pokev+2,30:pokev+3,208
  238. 2007 pokev+39,7:pokev+40,7:pokev+41,7
  239. 2008 pokev+37,2:pokev+38,7
  240. 2010 printtab(11)chr$(5)chr$(18) "[206][213][205][194][197][210][160][205][201][211][211][197][196][146]:";nw
  241. 2020 printtab(10)chr$(158)chr$(18)"[206][213][205][194][197][210][160][195][207][210][210][197][195][212][146]:";co:restore
  242. 2021 i=rnd(-ti)
  243. 2025 i=int(rnd(1)*qu)+1
  244. 2030 ifdp(i)=1thengoto2025
  245. 2035 dp(i)=1:i=(i*5)-4:i=i+63:fork=1toi
  246. 2050 readqu$:nextk:readm1$:readm2$:readm3$:readan$
  247. 2085 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][158]";qu$
  248. 2095 printchr$(5)
  249. 2100 rn=rnd(-ti):rn=int(rnd(1)*4)+1
  250. 2105 if rn=1thenprinttab(6)"a. ";an$:printtab(6)"b. ";m1$:printtab(6)"c. ";m2$
  251. 2110 if rn=1thenprinttab(6)"d. ";m3$:ad$="a"
  252. 2115 if rn=2thenprinttab(6)"a. ";m1$:printtab(6)"b. ";an$:printtab(6)"c. ";m3$
  253. 2120 if rn=2thenprinttab(6)"d. ";m2$:ad$="b"
  254. 2125 if rn=3thenprinttab(6)"a. ";m3$:printtab(6)"b. ";m2$:printtab(6)"c. ";an$
  255. 2130 if rn=3thenprinttab(6)"d. ";m1$:ad$="c"
  256. 2135 if rn=4thenprinttab(6)"a. ";m2$:printtab(6)"b. ";m3$:printtab(6)"c. ";m1$
  257. 2140 if rn=4thenprinttab(6)"d. ";an$:ad$="d"
  258. 2145 print:printchr$(153)chr$(18)"[193]nswer[146]?";:printchr$(153)" [183][183][183][183][183]":poke649,10
  259. 2150 ti$="000000"
  260. 2155 printtab(6)chr$(153)"[145][145]";
  261. 2160 getsa$:ifsa$=""then2160
  262. 2165 if sa$<>"a"andsa$<>"b"andsa$<>"c"andsa$<>"d"thengoto2160
  263. 2170 poke 649,0:printtab(10)sa$
  264. 2175 if sa$<>ad$thengoto2195
  265. 2180 rw=int(rnd(1)*2)+1
  266. 2181 ifrw=1thenprintchr$(18)"[159][195][207][210][210][197][195][212][146]!"
  267. 2182 ifrw=2thenprintchr$(18)"[159][210][201][199][200][212][146]!"
  268. 2183 ifti$<="0000005"thenprint"[217]ou scored 50 points!!":x=50:bf=bf+1:goto2188
  269. 2184 ifti$<="000001"then print"[217]ou scored 25 points!":x=25:bg=bg+1: goto2188
  270. 2185 ifti$<="000002"thenprint "[217]ou scored 20 points.":x=20:bi=bi+1: goto2188
  271. 2186 ifti$<="000003"thenprint"[217]ou scored 15 points.":x=15:bm=bm+1:goto2188
  272. 2187 ifti$>"000003"thenprint"[217]ou scored 10 points.":bn=bn+1:  x=10
  273. 2188 printtab(25)"";po:printtab(25)"[158]";co+1:print"[145][145][145]":gosub 901
  274. 2189 co=co+1:goto 2245
  275. 2195 print:poke53280,0:ifxu=1thengosub2400
  276. 2200 print"[159][201]ncorrect; the right answer is[158] ";ad$;".":forx=1to1000:next
  277. 2205 c$="[150]("
  278. 2210 c$=c$+an$
  279. 2215 c$=c$+")[146]"
  280. 2220 forp=1tolen(c$):printtab(11)
  281. 2225 printmid$(c$,p,1)" [157]";
  282. 2230 forj=1to30:nextj
  283. 2235 nextp
  284. 2240 print"";nw+1:nw=nw+1
  285. 2245 forx=1to2900:next:restore
  286. 2255 nd=nd+1:ifnd=quthengoto3000
  287. 2265 ifnw<5thenpoke53280,4:goto2000
  288. 2325 goto3000
  289. 2400 poke54296,13:poke54277,46:poke54278,166
  290. 2405 poke54276,33:poke54273,6:poke54272,4
  291. 2410 forf=1to225:next:poke54276,32:poke54273,0:poke54272,0
  292. 2415 return
  293. 2499 ifxu=0thenpoke54296,0:goto2507
  294. 2500 poke54296,15:poke54277,127:poke54278,129:poke54276,129:poke53280,4
  295. 2505 ford=1to10:fory=1to200step40:poke54273,y:poke53281,y:nexty,d:poke53281,0
  296. 2507 fort=208to0step-2:pokev+37,2:pokev+5,t:pokev+3,t:pokev+37,14:pokev+37,7
  297. 2510 next:poke53281,0:poke54296,0:poke54277,0:poke54276,0:return
  298. 3000 rem
  299. 3001 print"[147][144]";:printchr$(142):poke53280,0:poke53281,0
  300. 3002 pokev+21,0
  301. 3005 poke649,0
  302. 3015 printtab(8)"[158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][157][158][221][145]"
  303. 3020 printtab(8)"[158][221][157][158][221]      scoreboard[146]       [158][221][157][158][221][145]"
  304. 3025 printtab(8)"[221][157][144][158][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  305. 3027 print:print
  306. 3028 print""tab(6)"knowledge"
  307. 3029 printtab(6)"[156][184][184][184][184][184][184][184][184][184]"
  308. 3030 printtab(1)"number correct:";co
  309. 3035 printtab(1)"number wrong:  ";nw
  310. 3040 printtab(1)"[158]points scored: ";po
  311. 3044 print""tab(28)"speed"
  312. 3045 printtab(28)"[156][184][184][184][184][184]"
  313. 3046 printtab(23)"50 pointers:";bf
  314. 3047 printtab(23)"25 pointers:";bg
  315. 3048 printtab(23)"[156]20 pointers:";bi
  316. 3049 printtab(23)"[158]15 pointers:";bm
  317. 3050 printtab(23)"[129]10 pointers:";bn
  318. 3060 forx=1to500:nextx:print"[153] player rating:
  319. 3065 [153]"clr frefrefrefrefrefre frefrefrefrefrefre"
  320. 3070 [129]x[178]1[164]500:[130]x
  321. 3080 [153]""[163]16)"general"
  322. 3090 [153]""[163]16)"major general"
  323. 3100 [153]""[163]16)"captain"
  324. 3110 [153]""[163]16)"sergeant"
  325. 3120 [153]""[163]16)"private first class"
  326. 3130 [153]""[163]16)"private"
  327. 3135 [129]x[178]1[164]1000:[130]x
  328. 3140 [139]po[177][178]1500[167][153]""[163]16)"forgeneral"
  329. 3145 [139]po[177][178]1500[167][139]xu[178]1[167][141]3600
  330. 3150 [139]po[177][178]1200[175]po[179]1500[167][153]""[163]16)"formajor general"
  331. 3155 [139]po[177][178]1200[175]po[179]1500[167][139]xu[178]1[167][141]3600
  332. 3160 [139]po[177][178]1000[175]po[179]1200[167][153]""[163]16)"forcaptain"
  333. 3165 [139]po[177][178]1000[175]po[179]1200[167][139]xu[178]1[167][141]3600
  334. 3170 [139]po[177][178]600[175]po[179]1000[167][153]""[163]16)"forsergeant"
  335. 3175 [139]po[177][178]600[175]po[179]1000[167][139]xu[178]1[167][141]3600
  336. 3180 [139]po[177][178]200[175]po[179]600[167][153]""
  337. 3190 [139]po[177][178]200[175]po[179]600[167][153][163]16)"forprivate first class"
  338. 3195 [139]po[177][178]200[175]po[179]600[167][139]xu[178]1[167][141]3600
  339. 3200 [139]po[179]200[167][153]""[163]16)"forprivate"
  340. 3205 [139]po[179]200[167][139]xu[178]1[167][141]3600
  341. 3210 [151]214,23:[153]:[153]"       openpress space opento continueononon":[151]649,10
  342. 3220 [161]a$:[139]a$[178]""[167]3220
  343. 3230 [137] 62000
  344. 3300 [151]53280,2:[151]53281,3
  345. 3310 [153]"load"[163]13)"(NULL)(NULL) (NULL)left$valclose(NULL)(NULL)atn(NULL)val(NULL)"
  346. 3320 [153]""[163]13)"pokefrefre frefrefre frefrefrefrefrefre"
  347. 3330 [153]"stop(NULL)ost players will find this a very":[153]"challenging ";
  348. 3340 [153]"program the first few times";:[153]" they play.  right$t is very unusual";
  349. 3350 [153]" to be    able to score";:[153]" more than 10 or 15 points per";
  350. 3360 [153]" question at first.  (NULL)uch higher     scores";:[153]" will come with";
  351. 3370 [153]" continued         practice.";:[153]"  (NULL)he highest score possible"
  352. 3380 [153]"is 4000 points.  (NULL)ee how close you can  come!"
  353. 3390 [153]"(NULL)he dual rockets you will see on   the screen blast off";
  354. 3400 [153]" whenever you score 50 points on a question.  str$o not become";
  355. 3410 [153]" discouraged if it takes you awhile to   set them off."
  356. 3420 [153]"(NULL)(NULL)val(NULL)(NULL)closeatn(NULL)(NULL)close(NULL)val(NULL)"
  357. 3430 [153]"pokefrefrefrefrefre frefrefre frefrefre"
  358. 3435 [151]649,10
  359. 3440 [161]k$:[139]k$[178]""[167]3440
  360. 3445 [151]649,0
  361. 3450 [142]
  362. 3500 [153]""[163]10)"sys(NULL)ould you like sound?"
  363. 3510 [153]""[163]12)"cont(NULL)ress '(NULL)' for (NULL)es"
  364. 3520 [153]""[163]12)"(NULL)ress '(NULL)' for (NULL)o":[151]649,10
  365. 3530 [161]k$:[139]k$[178]""[167]3530
  366. 3540 [139]k$[179][177]"y"[175]k$[179][177]"n"[167][137]3530
  367. 3545 [151]649,0
  368. 3550 [139]k$[178]"y"[167][141]3600:xu[178]1
  369. 3560 [139]k$[178]"n"[167]xu[178]0
  370. 3570 [142]
  371. 3600 [151]54296,13:[151]54277,0:[151]54278,226:[151]54276,17:[151]54273,36
  372. 3610 [151]54272,0:[129]h[178]1[164]80:[130]:[151]54276,0
  373. 3620 [142]
  374. 60000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  375. 60010 [139] er[179][177]63 [167] [153]"load":[151]649,10:[128]
  376. 60020 a$[178]"hello connect":q$[178][199](34):[151]53281,7:[151]53280,7:[153]"load"
  377. 60030 [153]"sysload"q$a$q$",8"
  378. 60040 [153]"run":[151]631,13:[151]632,13:[151]649,10:[151]198,2:[128]
  379. 61000 [151]214,15:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  380. 61130 [129]i[178]1[164]3:[153]"                                      ":[130]
  381. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #58     "
  382. 61160 [153]"      Subscriptions 1-800-831-2694    "
  383. 61170 [153]"     CHANGINGcloseTHIScloseNOTICEcloseIScloseILLEGAL  "
  384. 61180 [153]"                                      "
  385. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  386. 61195 au$[178]"lenivil (NULL)ar (NULL)rivia chr$ame"
  387. 61200 [151]214,17:[153]:[153][166]20[171][195](au$)[173]2)"print#"au$
  388. 61210 au$[178]"peeky (NULL)oger (NULL)orton (len) 1989":[151]214,18:[153]
  389. 61220 [153][166]20[171][195](au$)[173]2)"print#"au$"":[142]
  390. 62000 [153]"loadlist":[151]649,10
  391. 62010 t$[178]"      (NULL)                          (NULL)"
  392. 62020 [153]"      ortantantantantantantantantantantantantantantantantantantantantantantantantantan^":[153]t$
  393. 62030 [153]"      (NULL) cont(NULL)lease choose:list           (NULL)":[153]t$
  394. 62040 [153]"      (NULL) cont1. (NULL)lay lenivil (NULL)ar (NULL)rivialist (NULL)":[153]t$
  395. 62050 [153]"      (NULL) cont2. (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)list    (NULL)":[153]t$
  396. 62060 [153]"      /tantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  397. 62070 [161]a$:[139]a$[178]""[167]62070
  398. 62080 [139] a$[178]"1"[167][153]"load":[138]
  399. 62090 [139] a$[178]"2"[167][153]"load":[137]60000
  400. 62100 [137] 62070
  401.